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•PLEASE  NOTE.  The  Departaent  of  the  Navy  aay  make  full  and  free  public 
disclosure  of  the  Validation  Summary  Report  (VSR)  in  accordance  with  the 
"Freedom  of  Information  Act"  (5  U.S.C.  #552).  The  results  of  this  valida- 
dation  are  only  for  the  purpose  of  satisfying  United  States  Government 
requirements#  and  apply  only  to  the  Computer  Systea#  Operating  Systea 
release#  and  compiler  version  identified  in  the  VSR.  The  FORTRAN  Compiler 
Validation  Systea  is  used  to  determine#  insofar  as  is  practical#  the  degree 
t to  which  the  subject  compiler  conforms  to  American  Standard  FORTRAN# 

X3. 9-1966.  Thus#  the  VSR  is  necessarily  discretionary  and  judgmental. 

The  United  States  Government  does  not  represent  or  warrant  that  the  state- 
ments# or  any  one  of  them#  set  forth  in  the  VSR  are  accurate  or  complete. 
The  VSR  is  not  aeant  to  be  used  for  the  purpose  of  publicizing  the  findings 
suaaarized  therein. 

For  information  concerning  this  coapiler  you  can  contact  the  vendor's 
designated  representative  named  below: 

Jay  Valentine 
Federal  Support  Center 
IBM  Corporation 
104C1  Fernwood  Road 
Bethesda#  Maryland  20034 
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The  testing  of  a compiler  in  a particular  hardware/operating  system  environment 
is  accomplished  by  coapiling  and  executing  each  audit  routine.  The  report  pro- 
duced by  each  routine  tells  whether  the  compiler  passed  or  failed  the  tests  in 
the  routine.  If  the  compiler  rejects  some  language  elements  by  terminating 
compilation?  giving  fatal  diagnostic  messages?  or  terminating  execution  abnor- 
mally? then  the  test  containing  the  code  the  compiler  was  unable  to  process  is 
deleted.  The  audit  routine  is  compiled  again  and  execution  is  repeated. 

The  compilation  listings  and  the  output  reports  of  the  audit  routines  con- 
stitute the  ram  data  from  which  the  members  of  the  Federal  COBOL  Compiler 
Testing  Service  produce  a Validation  Summary  Report. 

1.3  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  whose  contents 
are  described  below. 

a.  Section  2 summarizes  the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  FORTRAN  Compiler  Validation  System.  Section  2 
is  divided  into  a subsection  describing  the  syntax  errors  encountered  while 
coapiling  the  FORTRAN  audit  routines?  and  a subsection  describing  the  semantic 
errors  which  occurred  during  execution  of  the  FORTRAN  audit  routines. 


b.  Section  3 contains  information  which  describes  the  software  environ- 
ment in  which  the  compiler  was  tested.  This  includes  the  name  and  version  of 
the  operating  system  and  the  logical  uni t /physica  l device  assignments  used  in 
the  programs  comprising  the  FCVS.  The  options  used  with  the  compiler  are  also 
given?  and  if  applicable?  the  use  of  compiler  optimization  features  is  ex- 

p lained. 

c.  Appendix  A is  the  Validation  Summary  Working  bocument?  a working 
paper  resulting  from  the  compilation  and  execution  of  the  FCVS.  The  body 
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of  the  VSR  is  derived  from  Appendix  A. 

1.4.  Use  of  the  VSR 

The  Department  of  the  Navy  nay  aake  full  and  free  public  disclosure  of  the 
Validation  Summary  Report  (VSR)  in  accordance  with  the  "freedom  of  Information 
Act"  (5  U.S.C.  *552).  The  results  of  the  validation  are  only  for  the  purposes 
of  satisfying  United  States  Government  requirements,  and  apply  only  to  the 
computer  system,  operating  system  release,  and  compiler  version  identified 
in  the  VSR. 

The  FORTRAN  Compiler  Validation  System  is  used  to  determine,  insofar  as  is 
practical,  the  degree  to  which  the  subject  compiler  conforms  to  the  FORTRAN 
\ Standard.  Thus,  the  VSR  is  necessarily  discretionary  and  judgmental.  The 

1 United  States  Government  does  not  represent  or  warrant  that  the  statements. 

or  any  one  of  them,  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 
is  not  meant  to  be  used  for  the  purpose  of  publicizing  the  findings  summarized 
therein. 

1.5  Sources  of  Additional  Information 

The  detailed  FORTRAN  language  specifications  are  given  in  the  publication 
"American  Standard  FORTRAN.  X3. 9-1966".  available  from  the  American  National 
Standards  Institute.  1430  Broadway.  New  York.  New  York  10018. 

An  explanation  of  the  FORTRAN  Compiler  Validation  System  is  contained  in  the 
FCVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
' system.  The  User's  Guide  and  a magnetic  tape  containing  a copy  of  the  FCVS 

programs  are  available  from  the  National  Technical  Information  Service. 

5285  Port  Royal  Road.  Springfield.  Virginia.  22151.  (Ordering  information 
can  be  obtained  from  the  Federal  COBOL  Compiler  Testing  Service.) 
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SECTION  2.  DETAILED  EVALUATION  OF  ERRORS. 


This  section  summarizes  the  results  of  the  compilation  and  execution  of  the 
programs  comprising  the  FORTRAN  Compiler  Validation  System  (FCVS).  The  version 
of  the  FCVS  used  during  this  validation  is  shovn  inside  the  front  cover  of  the 
VSR. 

Section  2 is  made  up  of  tvo  subsections.  The  first  subsection  describes  each 
syntax  error  encountered-  during  compilation  of  the  audit  routines*  and  the 
second  subsection  describes  the  semantic  errors  encountered  during  execution 
of  the  audit  routines. 


Each  error  or  deviation  noted  in  this  section  makes  reference  to  an  audit 
routine  named  in  Appendix  A (Validation  Summary  Working  Document).  This  refer- 
ence provides  the  documented  results  of  an  occurrence  of  er rors /dev ia t ions 
detected  during  the  running  of  the  FCVS  using  the  compiler  within  the  environ- 
ment identified  in  this  document.  The  Validation  Summary  Working  Document  is 
presented  in  sequence  by  audit  routine  name. 
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2.1  Syntactical  Errors 

The  compiler  would  not  accept  a statement  which  uses  57  sets  of  nested 
parenthesis  in  an  arithmetic  expression.  See  FH045. 

X3. 9-1966  References:  Section  6.1*  Arithmetic  Expressions 

Section  7. 1.1.1*  Arithmetic  Assignment  Statement 

2.2  Semantic  Errors 


ho  semantic  errors  occurred  during  the  execution  of  the  FCVS  audit 
rout ines . 
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SECTION  3.  SOFTWARE  ENVIRONMENT. 

The  compiler  referenced  in  this  document  was  validated  using  the  software 
environment  described  in  this  section.  When  using  a modification  of  the 
described  environment*  the  compiler  may  or  may  not  continue  to  conform  to  the 
Standard.  It  should  be  noted  that  during  the  validation  process*  an  attempt 
is  made  to  validate  as  many  different  options  as  possible. 

The  use  of  compiler  options*  logical  uni t /phys i ca l device  assignments* 
and  any  form  of  optimization  which  is  not  described  in  this  report  could  cause 
the  compiler  to  produce  a program  that  does  not  perform  according  to  the 
specifications  of  Standard  FORTRAN.  Only  the  environment  described  in  this 
document  has  been  used  with  this  compiler  to  satisfy  the  validation  require- 
ments of  the  Department  of  the  Navy. 

1.  Options  or  paraaeters  used  on  the  processor  call  statement  for  the  compiler. 
Options  specified: 

a.  Batch  - Without  Optimization. 

//STEP  EXEC  r OR  TG  CL 

//FORT  EXEC  PGMrlEYFORT 

b.  Batch  - With  Optimization. 

This  compiler  does  not  have  an  optimization  feature. 

c.  Time-sharing. 

The  time-sharing  processing  mode  was  not  used  to  validate  this 
compiler. 

2.  logical  Uni t /Phys i cal  Device  Assignments. 

a.  Batch  Compiler  Runs. 

Printer  Destined  Files: 

Logical  unit  06  was  assigned  to  SYS0UT*A 
Tape  Files: 

Logical  unit  07  was  assigned  to  a tape  file  by  using  the  following 
JCL  card. 

/ / F T07F001  DD  DSN=T01*UNIT*2AO0*DISP*(*KEEP)*DCB= (BLK S I ZE = 1 1 0 ,REC F P*U ) 
Sequential  Mass-storage  Files: 

logical  unit  07  was  assigned  to  a mass-storage  file  by  using  the 
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following  JCL  card. 

//FT07F001  OD  UN  I Tn3330/ SPA  CE  = ( C YL/ (2 / 1 ) ) / D CB= ( LRE  CL  = 1 10/R  E CF  M* J ) 

Card  Input  F i les  : 

Logical  unit  05  was  assigned  to  the  card  reader.  The  following 
JCL  card  preceeds  the  data  for  audit  routines  which  use  the  card 
reader. 

//FT05F001  DO  * 

b.  Tiae-sharing  Coapiler  Runs. 

The  tiae-sharing  aode  was  not  used  to  validate  this  coapiler. 

3.  Cpt i ai z at  ion  . The  coapiler  aay  or  nay  not  have  optiaization  features. 

If  there  was  an  optiaization  feature  available/  it  was  used  during  the 
validation  process  (during  a separate  execution  of  the  Coapiler  Validation 
System)  to  determine  if  its  use  causes  the  coapiler  to  produce  a program  which 
does  not  give  the  expected  results.  If  the  optiaization  is  invoked  through 
the  coapiler  call  statement  then  it  is  mentioned  in  paraoraph  1 above.  If 
it  is  invoked  through  the  introduction  of  a compiler  directing  source  program 
statement/  it  is  shown  below.  Optiaization  which  would  reauire  modification 
to  source  program  stataents  is  not  considered  in  this  report  in  that  it  is 
beyond  the  scope  of  the  use  of  Standard  FORTRAN  and  the  validation  process. 

This  coapiler  does  not  have  an  optiaization  feature. 

4.  Compiler. 

FORTRAN  XV  6/  Level  21 

5.  Operating  systea. 

OS  Version  21.8/  MVT  with  HASP  3.1 

6.  Coaputer  Systea  Reference  Manuals 

a.  IBM  System  36D  and  System  370/  FORTRAN  IV  Language/  May  1974/ 
Publication  Number  GC28-651 5-1 0 . 

b.  IBM  Systea/360  Operating  Systea  FORTRAN  IV  (GSH  ) Programmers 
Guide/  June  1970/  Publication  Nuaber  6C28-6817-2. 
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APPENDIX  A 


VALIDATION  SUNKARY  WORKING  DOCUMENT 


This  appendix  is  a working  paper  produced  during  the  validation  and 
documents  the  results  of  the  compilation  and  execution  of  each  of  the 
programs  comprising  the  FCVS.  The  results  contained  herein  are  based  on 
the  use  of  the  compiler  -within  the  Validation  Environment  identified  in 
this  appendix.  This  appendix  (Validation  Summary  Working  Document)  is  not 
part  of  the  official  Validation  Summary  Report  ( VSR ) # and  it  is  not  intended 
to  reflect  in  any  way  the  compiler's  usefulness  or  degree  of  conformance 
to  the  language  specifications. 

The  reader  of  this  appendix  should  keep  in  mind  that  the  same  problem 
area  may  appear  in  more  than  one  program  but  is  considered  only  as  a 
single  d i sc repancy#  and  the  problem  is  reflected  only  once  in  the  body  of 
the  VSR.  (The  VSR  will  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 

This  appendix  is  divided  into  four  parts.  The  first  part  describes 
the  Validation  Environment.  The  second  part  lists  the  Monitor  Input  Cards 
used  in  creating  a job  control  stream  for  execution  in  the  batch  mode. 

The  third  part  shows  the  control  cards  required  to  compile  and  execute  an 
individual  program.  The  fourth  part  of  the  document  is  divided  into  two 
categories  of  information:  compilation  results  and  execution  results. 

Information  items#  such  as  compiler  warning  messages#  are  included  in  the 
summary  of  compilation  and  execution  results. 


The  reference  document  for  FORTRAN  is  American  Standard  FORTRAN# 
X3. 9-1966. 
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VALIDATION  ENVIRONMENT 


COMPILER  IDENTIFICATION: 
COMPUTER  SYSTEM: 
OPERATING  SYSTEM: 


FORTRAN  IV  G,  Level  21 
IBM  SYSTEM/360-65 
OS  21.8,  MVT,  HASP  3.1 


Each  of  the  programs  comprising  the  FCVS  was  compiled  and  esecuted 
in  the  batch  mode.  The  programs  which  test  I/O,  FM100  throuoh  FM108, 
were  run  twice.  These  programs  were  first  run  with  the  output  logical  unit 
assigned  to  a tape  device,  and  then  rerun  with  the  output  logical  unit 
assigned  to  a mass-storage  device. 
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CCVS  EXECUTIVE  CONTROL  CARDS 

The  CCVS  Executive  Routine  was  used  to  prepare  the  FCVS  prooraas  for 
execution  in  the  batch  aiode.  The  Control  Cards  used  as  input  to  the  CCVS 
Executive  Routine  together  with  the  job  control  stream  for  executing  the 
Executive  Routine  are  listed  below: 

//VALDATE3  JOB  < 1 90602  , AA  00  ) , *N  I K E 0 CUNNINGH AN ■ , CLA S S=G ,R E G I0N= 1 50K 
//EXEC  VALIDATE 
//STEP1.SYSIN  DO  » 

•DATE  033177 
•INITIAL  ALL 

B-0103J//XXXXX  J OB  <190602*AA00),'F0RTRANG  N00P • , CLA SS=G 
B -02  S//STEPX  EXEC  PGN  = I EBGE  NE  R 

1 B-03  S//SYSPRINT  DD  SYS0UT=A 

B-0*  S//SYSUT1  DD  * * D CB= (LRE C L = 80 ,BLKSI I E = 80 , RE C f N = F ) 

B-0519S  INCLUDE  SY SLMOD ( X X X X X ) 

B -06  / /SYSUT2  DD  D SN = VAL I D A TE . C ON T ROL * D I SP=0LD 

B -07  T//SYSUT2  DD  DSN  = V AL I 0 A T E . COM ROL * D I SP  = N0D 
B -08  S//SYSIN  DD  DUN*Y 
B-0907S//STEP9  EXEC  FORTGCL 
B-10  S//F ORT.SYSIN  DD  • 

B-11 

E-0137S//LKED.SYSLN0D  DD  DSN  = V AL I D AT E . LOA D ( X X X X X ) , 

E -02  S//  DISP=SHR 

E -03  J//LINK  EXEC  PGN=IEWL,REG10N=150K, 

E-OA  ill  PARN=*XREF»LIST»LET,NCAL' 

‘ E -05  J//SY SPRINT  DD  SYS0UT=A 

E -06  J//SYSUT1  DD  UN  I T = S Y S WR X , SPAC E = ( C Y L , (1 0, 5) ) 

„ E-0733J//SYSL»0D  DD  D SN= VALI DA TE . LOAD ( XXXXX ) , D I SP=SHR 

L * E -08  J//SYSLIN  DD  D SN  = VA  L I DATE .CONTROL'DI SP  = SHR 

E— 0921J//STEPLAST  EXEC  PGN= X X X X X , RE G I 0N=1 OOK 
E - 1 0 J//STEPLIB  DD  D SN= VAL I D A TE . LO A D, D I SP=SHR 
E-11  JBREAK*** 

E-13  J//ET06E001  DD  SYSOUT=A 

E-U  il  / FT05F001  DD  • 

E-15  JDATA***« 

E-1 6 il* 

E-17 

E -12  J//FT07F001  DD  UNIT=3330,SPACE=(CYL/(2*1))*DCB=(BLKSI7E=110»RECFN=U) 

£-12  il  If T07F001  DD  DSN=T01,UNIT=2A00,DISP=(,KEEP),DCB=(BLKSI7E=110,R£CFN=U> 

(FORTRAN  audit  routine  selection  cards) 

•BCD-POP  YES 
•CCVSVR  7 A 

•LIST  UP  DATES, XCARDS,CTL,JCL 
•PRGID 
•END-NONITOR 
•BEGIN-UPDATE 
•START, FH0A5 
■0A070C0A120 
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•END-UPDATE 

I* 

/• 

//STEP2  EXEC  SCHEDULE 

/ /STEPZ.BGUE  DO  UNI T = ( 3330, 3) , SPAC E = ( C VL , ( 30 , 2 ) ) 
//BJCL  DO  DSN=VALIDATE.READER»DISP=OLD 

/• 
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CONTROL  CARDS  FOR  RUNNING  FCVS  PROGRAMS 


The  job  control  strea>  for  compiling  and  executing  an  Individual  audit 
routine  consisted  of  the  following  job  control  language: 

//FH100  JOB  (190602*AA00)*,F0RTRANG  NOOP  * ,CL A SS*G 
//STEPX  EXEC  PGH=JEBGENER 
//STSPRINT  DD  SYSOUT=A 

/ / ST  SUT 1 DD  *,DCB=(LRECL=80*BLKSI2E=80#RECFH=F) 

INCLUDE  SYSLHOD (FN100)  , 

//SYSUT2  DD  DSN=VALIDATE.CONTROL/DISP*OLD 
//SYSIN  DD  DUMMY 
/ / STE  P001  EXEC  FORTGCL 
//FORT. SYSIN  DO  * 

(audit  routine  source  prograa) 

//LKED. SYSLHOD  DD  0 SN= VAL ID  A T E . LOA D ( F HI  00 ) a 
//  D I SP  =S HR 

//LINK  EXEC  PGH=IEUL/REG10N=150K» 

//  PARH='XREF*LlST/LETaNCAL' 

//SYSPR1NT  DD  SYS0UT=A 

//SYSUT1  DD  UNIT=SYSURK,SPACE=(CYL*(10/5)) 

//SYSLHOD  DD  DSN=VALIDATE.L0AD(FM100>,DISP=SHR 
//SYSLIN  DD  DSN=VAL1DATE.C0NTR0L»DISP=SHR 
//STEPLAST  EXEC  PGH  = F HI 00 ,R E G ION  = 1 00K 
//STEPLIB  DD  DSN  = VALIDATE  .LOA D , D I SP  = SHR 

//FT07F001  DD  D SN  = T0 1 » UNI T = 2 400. D I SP  = ( * KE EP) r DC B* (BLK SI  I E =1 1 0, RE C FH *U ) 
//FT06F001  DD  SYSOUT=A 
//FT05F001  DD  • 

/* 
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RUN  SUMMARIES 


f M001  through  FM006 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

FM007 

A.  Compilation 
The  message 

♦**01)  IEY033I  COMMENTS  DELETED**** 

was  generated  by  the  compiler  when  more  than  30  consecutive  comment 
lines  were  encountered  in  the  source  program. 

B.  Execution 
No  errors. 

FM008  through  FM044 
A.  Compilation 
No  errors. 

6.  Execution 
No  errors. 

FM045 

A.  Compilation 

The  compiler  discontinued  compilation  with  the  message 

JEY031I  ROLL  SIZE  EXCEEDED  COMPILATION  TERMINATED. 

This  message  uas  produced  prior  to  the  statement  in  Test  759  which 
uses  37  sets  oi  nested  parentheses  in  an  arithmetic  expression. 

The  statement  being  tested  was 

IVCOMP  * (((((((((((((((((((({(((((I <(((<(( (((((((( {((((((( (((((<( 


15 


FCVS66-VSR210 

1 IV0N01  / IV0NCJ2 

2 )>)))))))))))>>)))))))))))))))))))))))))))))))))))>>))))) 

B.  Execution 

Test  759  was  deleted  due  to  the  coapilation  error  in  A.  above. 

FH050  through  FH062,  FFI080  through  FFI083,  and  FN097  through  FK099 

A.  Coapilation 
No  errors. 

B.  Execution 
No  errors . 

FORTRAN  I/O  Routines  - FN100  through  FFI108 

These  audit  routines  were  executed  with  the  output  logical  unit  assigned 
to  a tape  device  and  rerun  with  the  output  logical  unit  assigned  to  a aass- 
ttorage  device. 

FNIOO  through  F FR1 08 

A.  Coapilation 
No  errors. 

B.  Execution 
No  errors. 

FH1  09 

A.  Coapilation 
No  errors. 

B.  Execution 
No  errors. 
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